(in-package #:nyxt-user)

(defun custom-dashboard ()
  ""
  )

(define-configuration browser
  ((startup-function (make-startup-function :buffer-fn #'custom-dashboard))))

(defun format-status (window)
  "Final status function that control the entire bar"
    (let* 
        (
         (buffer (current-buffer window))
         (vi-class (cond ; Find vi mode mode
                     ((find-submode buffer 'vi-normal-mode) "command")
                     ((find-submode buffer 'vi-insert-mode) "insert")))
        )
      
    (spinneret:with-html-string
      (:div :id (if vi-class "container-vi" "container")
       (:td
      
        (:tr 
         (:div :id "tabs"
          (:raw (format-status-tabs))))
        
        (:tr 
         (:div :id "url" :class "rounded"
          (:raw (format-status-load-status buffer) (format-status-url buffer)))) ; <load status> <current url>
        
         (:tr
          (:div :id "buttons" :class "rounded-right" ; Try to make status bar sections rounded
           (:raw (format-status-buttons)))
          (when vi-class
            (:div :id "vi-mode" :class "rounded-right"
             (:raw (format-status-vi-mode buffer)))) ; <current vi mode>
          (:div :id "modes" :class "rounded-left"
           ; :title (list-modes buffer) ; why does this have this?
           (:raw (format-status-modes buffer window)))))))))
